Top 10k strings from Soft Spectrum - Issue 02 (1985)(Grupo de Trabajo Software)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
16 ;"pulse una tecla para continuar";
12 ;"S O F T S P E C T R U M **** 2":
12 ;"Revista en cassette"
7 ;"PREPARADO PARA OTRO PROGRAMA":
6 V$=V$+" ":
6 ;"PULSE PLAY":
5 ;" Suscribase a SOFTSPECTRUM por solo 1950 pts. y recibira 11 cassettes con sus correspon- dientes revistas, con un aho- rro de 1350 pts. "
5 ;" Si desea ver publicado alguno de sus programas en esta re- vista, para su difusion entre los usuarios del Spectrum, en- vielos en un cassette, adjun- tando instrucciones, a:"
5 ;" SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID "
5 ;" ********** *PUBLIQUE* * SU * *PROGRAMA* **********"
5 ;" Si su programa resulta elegido en alguna de las selecciones mensuales, recibira 5000 ptas. por cada uno. No se devuelven los cassettes ni se mantiene correspondencia sobre los programas. ":
5 ;" Para ello copie o mande el cu- pon incluido en la revista a: SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID ":
5 ;" Cada mes seran elegidos varios programas de entre todos los recibidos;los que no se publi- quen, pasaran a la seleccion del mes siguiente."
5 ;" SUSCRIBASE TELEFONICAMENTE -------------------------- Si desea suscribirse telefoni- camente, llame al 222 47 81 de Madrid (prefijo 91). Esta linea esta provista de un contestador automatico, por lo que puede suscribirse las 24 horas del dia,festivos inclui- dos."
5 ;" OFERTA DE SUSCRIPCION --------------------- "
5 ;" ****** ":
4 ;"Programado por:";
4
3 "--------------------------------"
2 y1,x1;" ";
2 b2=b2+(c2/2
2 a2=a2+(c1/2
2 ;O$;" = 6"
2 ;N$;" = 5"
2 ;M$;" = 4"
2 ;L$;" = 3"
2 ;K$;" = 2"
2 ;J$;" = 1"
2 ;H$;" = 8"
2 ;G$;" = 7"
2 ;"ABANDONAR OPCION = 0"
2 ;" "
2 "OPCION = ";OP
2 "FILA DEL ELEMENTO A CORREGIR ";aa:
2 "DESEA EFECTUAR CORRECCIONES? ";b$:
2 "COLUMNA ELEMENTO A CORREGIR ";da:
1 h(i,j)=h(i,j)+a(i,h)*g(h,j)+f(i,h)*b(h,j):
1 h$="R.F.B":
1 fase=fase+1
1 d(i,j)=d(i,j)+a(i,h)*b(h,j):
1 d(i,j)=d(i,j)+a(i,h)*b(h,j)-f(i,h)*g(h,j):
1 Z$=" NUEVO VALOR ":
1 Y$=" VALOR A MODIFICAR "
1 TELEFONO H
1 SOFT SPECTRUM N.2
1 PROVINCIA G
1 PROD-MATR +
1 POBLACION O
1 PLANETA-ZX~"
1 PESO-IDEAL
1 O$="PROVINCIA "
1 N$="POBLACION "
1 M-5235-19850
1 M$="DIRECCION "
1 L$= "NOMBRE "
1 K$="APELLIDO 2 "
1 J$="APELLIDO 1 "
1 H(I)=H(I+1
1 H$="CODIGO POSTAL "
1 G(I)=G(I+1
1 G$="TELEFONO "
1 F=NUMERO DE FICHAS
1 F$(I)=F$(I+1
1 EDITORIAL GRUPO VEINTIUNO
1 E$(I)=E$(I+1
1 DIRECCION N
1 DIETA RECOMENDADA
1 DESTRUIDO":
1 D$="FEBRERO"
1 D$(I)=D$(I+1
1 CONTENIDO
1 CODIGO POSTAL
1 CALENDARIOR
1 C$(I)=C$(I+1
1 BILLAR
1 BERZEK :0
1 B$(I)=B$(I+1
1 APELLIDO 2 L
1 APELLIDO 1 K
1 AGENDA )
1 ADIR FICHA = 5"
1 A$(I)=A$(I+1
1 A$(I)=" "
1 ;f;" calorias"'"durante ";d;" dias"
1 ;e;" calorias"'
1 ;c;" calorias"
1 ;G$;" = ";G(N)
1 ;E$(N);"(";H(N);")";
1 ;D$;" ";1900
1 ;;"Deficit calorico:";
1 ;''''"
1 ;"carga obsequio":
1 ;"__________"
1 ;"VALORES DE B ";
1 ;"VALORES DE A ";
1 ;"UNA TIRADA PERFECTA"
1 ;"Tu sobrepeso es de ";
1 ;"Tienes un buen peso":
1 ;"Teorico ";t;" Kg"'"Ideal ";i;" Kg"'"Minimo ";
1 ;"S O L U C I O N :";
1 ;"RECORD:";r
1 ;"RECORD: ";r
1 ;"Pulsa una tecla para continuar":
1 ;"Por RAMON FERNANDEZ BORRA";
1 ;"Peso(Kg)";
1 ;"Para ello, tiene que golpearla con la bola blanca, con un an- gulo adecuado."
1 ;"PUNTUACION:"
1 ;"PUNTUACION: ";p:
1 ;"PUNTUACION: ";p
1 ;"PROD-MATR ---------"
1 ;"PROCESO EN EJECUCION"
1 ;"PILAR CRESPO ASENJO";
1 ;"PABLO Y PACO PEREZ DE AYALA";
1 ;"Otra partida?(s/n)":
1 ;"OPCIONES"
1 ;"No necesitas dieta":
1 ;"Necesitas una dieta de:";
1 ;"NUMERO DE FICHA = 9"
1 ;"MUCHA SUERTE!!"
1 ;"MOVIMIENTOS:Q=ARRIBA (deprisa) q=ARRIBA (despacio); A=ABAJO (deprisa); a=ABAJO (despacio); m=MOVIMIENTO. "
1 ;"MODIFICAR FICHA = 3"
1 ;"MISION: destruir el generador central de los raros seres que amenazan a la humanidad TECLAS: 0,l,p,o; disparo:CAPS SHIFT y la tecla hacia donde se quiera disparar;parar: otra tecla"
1 ;"JAVIER PUIG SAQUES";
1 ;"Has batido el record,pon tus 5 iniciales":
1 ;"FRANCISCO DE LOS SANTOS RAMOS";
1 ;"FORMA DE CONTROL","1 TECLADO ","2 JOYSTICK KEMSTON"
1 ;"FICHERO REORDENADO"
1 ;"FICHA BORRADA";
1 ;"FICHA ";N
1 ;"FALLO:JUGADA TERMINADA"
1 ;"Este programa permite efectuar el producto de 2 matrices,rea- les o complejas."
1 ;"Este juego es una version del billar americano. Consiste en introducir la bola negra en cualquiera de los dos agujeros."
1 ;"DESEA OTRO CONTROL DE PESO (S/N)":
1 ;"DESEA OTRO CALENDARIO ?(S/N)":
1 ;"DESEA JUGAR OTRA PARTIDA ? (S/N)":
1 ;"DESEA EFECTUAR OTRO CALCULO s/n":
1 ;"Consumo energetico diario:";
1 ;"CONSULTAR FICHA = 4"
1 ;"CAMPO DE BUSQUEDA"
1 ;"CALENDARIO";
1 ;"BORRAR FICHA = 2"
1 ;"BORRAR AGENDA = 1"
1 ;"Altura ";a;" cm"
1 ;"ALMACENAR FICHERO = 6"
1 ;"ABANDONAR AGENDA = 0"
1 ;"***PROGRAMAS***";
1 ;"****SE*LE*ACABARON*LAS*NAVES****"
1 ;"*****FINAL*DE*ESTA*PANTALLA*****"
1 ;"###BILLAR###";
1 ;" PULSA UNA TECLA PARA CONTINUAR"
1 ;" ## ## #### ######"
1 ;" ":
1 ;" PLANETA ZX "
1 ;" ":
1 333*t);" Kg"
1 243940040247250190249580170251690150252530140255040277257370260259360240260180230260420290261540310266370005266590350
1 *t);" Kg"'"Maximo ";
1 *(t>p)+110
1 )*(s$="m"):
1 )*(s$="h")+(b*300
1 )))))))))))
1 (Z$);F$(M)
1 (Z$);E$(M)
1 (Z$);D$(M)
1 (Z$);C$(M)
1 (Z$);B$(M)
1 (Z$);A$(M)
1 (O$),F$(L)
1 (N$),E$(L)
1 (M$),D$(L)
1 (L$),C$(L)
1 (K$),B$(L)
1 (J$),A$(L)
1 ("REAL DE B(";i;" , ";j;")");b(i,j):
1 ("REAL DE A(";i;" , ";j;")");a(i,j):
1 ("PARTE REAL DE B(";aa;" , ";da;")");b(aa,da):
1 ("PARTE IMAGINARIA DE B(";aa;" , ";da;")");g(aa,da)
1 ("NUEVA PARTE REAL DE A(";aa;" , ";da;")");a(aa,da):
1 ("NUEVA PARTE IMAGINARIA DE A(";aa;" , ";da;")");f(aa,da)
1 ("IMAGEN DE B(";i;" , ";j;")");g(i,j)
1 ("IMAGEN DE A(";i;" , ";j;")");f(i,j)
1 "ano 19";X
1 "VALOR A BUSCAR ";V$
1 "SEPTIEMBRE",30
1 "REALES (r)- COMPLEJAS (c) ";w$
1 "Presionar enter para jugar";
1 "Peso(Kg)? ";p:
1 "PULSE ENTER PARA EMPEZAR";
1 "OTRA FICHA ? (S/N)";S$
1 "OPCION = ";M
1 "OCTUBRE",31
1 "NUMERO DE FILAS DE B " ;fb:
1 "NUMERO DE FILAS DE A ";fa:
1 "NUMERO DE FICHA A MODIFICAR ";M
1 "NUMERO DE FICHA A BORRAR (Para salir = 0) ";M
1 "NUMERO DE COLUMNAS DE B ";cb
1 "NUMERO DE COLUMNAS DE A ";ca
1 "NOVIEMBRE",30
1 "NIVEL DE DIFICULTAD?(1-9)";di:
1 "MARZO",31
1 "JUNIO",30
1 "JULIO",31
1 "FICHERO COMPLETO":
1 "FICHA ";L
1 "FEBRERO",28
1 "En cuantos dias quieres conse- guir un buen peso? ";d
1 "ENERO",31
1 "ELEMENTO D(";i;" , ";j;")=";d(i,j);:
1 "ELEMENTO B(";i;" , ";j;")=";b(i,j);:
1 "ELEMENTO A(";i;" , ";j;")=";a(i,j);:
1 "EL HUMANOIDE HA SIDO DESTRUIDO":
1 "DICIEMBRE",31
1 "DESEA VER LA MATRIZ B?";a$:
1 "DESEA VER LA MATRIZ B?";a$
1 "DESEA VER LA MATRIZ A?";a$:
1 "DESEA VER LA MATRIZ A?";a$
1 "DESDE LA FICHA NUMERO ";J1;" HASTA LA ";J2
1 "CONFIRMA QUE HAS ELEGIDO LA OPCION 1 QUE BORRA LOS DATOSDE LA AGENDA"
1 "CAMPO = ";W
1 "Altura(cm)? ";a:
1 "Actividad ?"'"(1)Ligera"'"(2)Moderadamente activa"'"(3)Muy activa"'"(4)Excepcionalmente activa ";b
1 "AGOSTO",31
1 "ABRIL",30
1 "+";h(i,j);" i"
1 "+";g(i,j);" i"
1 "+";f(i,j);" i"
1 "(H)ombre o (M)ujer ? ";s$
1 " ______________________________"
1 " Suscribase a SOFTSPECTRUM por solo 1950 pts. y recibira 11 cassettes con sus correspon- dientes revistas, con un aho- rro de 1350 pts. Para ello mande o copie el cu- pon incluido en la revista a: SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID "
1 " Si su programa resulta elegido en alguna de las selecciones mensuales, recibira 5000 ptas. por cada uno. No se devuelven los cassettes ni se mantiene correspondencia sobre los programas."
1 " Si desea ver publicado alguno de sus programas en esta re- vista, para su difusion entre los usuarios del Spectrum, en- vielos en un cassette, adjun- tando instrucciones, a: SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID "
1 " Para ello mande o copie el cu- pon incluido en la revista a: SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID "
1 " NOMBRE TIPO DI/LI LONG. ------------------------------ TANQUE BASIC LINE 1 10453 RELOJ/DESP BASIC LINE 0 1603 ALIENS B. LINE 1000 6022 ********** TODOS LOS PROGRAMAS SE CARGAN CON LOAD"""" Y ENTER, SIENDO SU EJECUCION AUTOMATICA. "
1 " NOMBRE TIPO DI/LI LONG. ------------------------------ PESO-IDEAL BASIC LINE 1 5306 BERZEK BASIC LINE 1 12346 AGENDA BASIC LINE 1 5417 BILLAR B. LINE 1000 5369 PROD-MATR B. LINE 1000 5675 PLANETA-ZX BASIC LINE 1 8830 CALENDARIO B. LINE 999 4178 QUINIELAS BASIC LINE10 10658 FRONTON BASIC LINE 1 5858 BARQUITOS BASIC LINE 1 9952 PUZZLE-15 B. LINE 1000 5515"
1 " CAMPO ELEGIDO PARA MODIFICAR"
1 " LUN MAR MIE JUE VIE SAB DOM"
1 " Otra partida (s/n) ? ";g$:
1 " ********** *PUBLIQUE* * SU * *PROGRAMA* **********"
1 " Cada mes seran elegidos varios programas de entre todos los recibidos;los que no se publi- quen, pasaran a la seleccion del mes siguiente."
1 " OFERTA DE SUSCRIPCION ---------------------"
1 no te pases":
1 Suscribase a SOFTSPECTRUM por solo 1950 pts. y recibira 11 cassettes con sus correspon- dientes revistas, con un aho- rro de 1350 pts. Para ello mande o copie el cu- pon incluido en la revista a: SOFTSPECTRUM c/ Marques de Ca- sa Riera, 4 28014-MADRID 3
1 PABLO & PACO
1 '" Se encuentra en el planeta ZX "''" Su mision es destruir "''" las naves enemigas "''''''" Los mandos son: A-Izquierda "''" D-Derecha "''" Para disparar: SPACE"''" Nueva pantalla: Q"'
1
1
1
1
1